home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ WinNT DNS Options 2.xpl < prev    next >
Text File  |  2003-11-19  |  2KB  |  66 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="2"
  3. "COUNT"="1"
  4. "UIPATH"="Network\DNS"
  5. "NAME"="NT DNS Server Time To Live"
  6. "VERSION"="1.06"
  7. "LANGUAGE"="VBScript"
  8. "WARNING"="1"
  9. "OSVERSION"="01000"
  10. "TEXT 1"="TTL"
  11. "DESCRIPTION 1"="The Windows NT DNS service normally caches all queries until their Time To Live (TTL) has expired."
  12. "DESCRIPTION 2"="By setting this field to "0" DNS will no longer cache any name but you can also enter your prefered TTL." 
  13. "DESCRIPTION 3"="To restore the original settings, clear the field."
  14. "DESCRIPTION 4"="NOTE: This feature requires NT4 SP4 to work correctly."
  15. "AUTHOR"="Xteq Systems"
  16. "CONTACTURL"="http://www.xteq.com"
  17. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  18. "COMMENT 1"=" "
  19.  
  20.  
  21. SPC="HKLM\SYSTEM\CurrentControlSet\Services\DNS\"
  22. sP="HKLM\SYSTEM\CurrentControlSet\Services\DNS\Parameters\MaxCacheTtl"
  23.  
  24. Sub Plugin_Initialize 
  25.  If RegPathExists(sPC) then 
  26.     i=RegReadValue(sP)
  27.     if IsEmpty(i)=false then
  28.        SetUIElement 1,i
  29.     end if
  30.  else
  31.     Disable
  32.  end if
  33. End Sub
  34.  
  35. Sub Plugin_CheckData(ElementIndex)
  36. End Sub
  37.  
  38. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  39.  i=GetUIElement(1)
  40.  
  41.  if i="" then
  42.     'Delete Value   
  43.  
  44.     i=RegReadValue(sP)
  45.     if not isEmpty(i) then 
  46.        Call RegDeleteValue(sP)
  47.     end if
  48.  
  49.  else
  50.     'Set Value
  51.  
  52.     if IsNumeric(i) then
  53.        Call RegWriteValue(sP,i,2)
  54.        Call Restart
  55.     else
  56.         Call MsgError("Please enter a valid numeric value.")
  57.     end if
  58.  
  59.  end if
  60.   
  61.  
  62. End Sub
  63.  
  64. Sub Plugin_Terminate 
  65. End Sub
  66.